home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL21.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  26 lines
  1. *[FOSSIL21.LIT]***************************************************************
  2. * Description: Removes FOSSIL support                                        *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 201 ZSubParm = -10
  9.     CALL Carrier
  10.     IF ZSubParm = 0 THEN _
  11.        GOTO 210                                                      ' KG061103
  12. '
  13. '
  14. ' *  RESET THE MODEM VIA THE MODEM CONTROL REGISTER  TO ASSURE IT IS READY
  15. '
  16. '
  17.     OUT ZModemCntlReg,&H4
  18.     CALL DelayTime (ZModemInitWaitTime)
  19. '
  20. '
  21. ' *  CLEAR THE MODEM CONTROL REGISTER PRIOR TO OPEN THE COMMUNICATIONS PORT
  22. '
  23. '
  24.     OUT ZModemCntlReg,&H0
  25.     CALL DelayTime (ZModemInitWaitTime)
  26.